Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 572,198.5 8,729.94 104,837.5 1,144,503 18,147.64 228,641.8 572,304.52 100
lp://DOT/LCDOT 3,415,282.5 73,578.02 478,870.8 3,418,927 95,600.97 532,557.3 3,644.70 0.6
lp://AUSD/LCDOT 2,100,026.9 35,260.96 398,372.1 2,097,958 35,881.00 408,868.1 2,068.44 0.4
lp://ACA/AUSD 1,537,687.3 120,657.40 623,160.5 1,536,870 124,210.53 683,887.9 817.57 0.1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,408,346.80 -428.55 -2,446.54 NA NA NA NA NA
lp://KINT/KUSD -1,250,494.67 -60.88 -3,675.65 NA NA NA NA NA
lp://PHA/KUSD -1,011,540.37 -187.74 -1,609.21 NA NA NA NA NA
lp://KUSD/KINT 1,230,992.77 -5.63 -3,388.62 21,170.52 77.70 7,674.11 1,209,822.26 NA
lp://KUSD/PHA 1,003,402.40 -14.58 -1,467.56 13,783.19 369.13 13,211.93 989,619.21 NA
lp://KUSD/KBTC 1,273,432.87 -12.15 -4,070.38 438,721.20 2,255.42 41,381.90 834,711.67 NA
lp://TAI/taiKSM 0.00 0.00 0.00 3,364.74 14.03 976.31 3,364.74 NA
lp://KAR/LKSM 694,625.56 5,682.08 43,678.07 692,768.67 6,873.18 59,604.77 1,856.89 NA
lp://KAR/KSM 948,613.06 16,030.18 153,124.39 948,101.95 16,138.67 153,570.17 511.12 NA
lp://KUSD/KSM 507,809.96 19,065.78 192,982.73 507,309.22 19,122.68 210,126.38 500.74 NA
lp://KUSD/BNC 57,303.68 339.24 5,107.96 56,817.56 339.61 4,847.04 486.12 NA
lp://KUSD/LKSM 470,158.19 8,085.43 64,183.51 469,747.75 13,228.67 122,137.30 410.44 NA
lp://KSM/LKSM 105,121.09 470.98 5,937.92 104,754.33 531.37 6,224.45 366.76 NA
lp://KAR/KUSD 606,996.81 30,995.00 134,839.02 607,302.46 36,893.84 249,694.00 305.64 NA
lp://KUSD/RMRK 10,840.60 904.02 15,137.51 10,956.69 904.12 15,138.57 116.09 NA
lp://KAR/QTZ 23,611.42 275.16 1,891.60 23,704.10 1,368.81 3,937.21 92.69 NA
lp://KUSD/QTZ 25,316.85 247.03 2,183.64 25,393.26 381.33 3,543.79 76.40 NA
lp://KSM/ARIS 61.64 0.40 222.84 123.17 0.79 582.29 61.53 NA
lp://KSM/RMRK 5,605.34 239.45 4,655.23 5,603.32 239.55 6,967.69 2.02 NA
lp://KUSD/CSM 19,413.39 4.02 5,624.43 19,413.39 13.46 5,697.31 0.00 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```